10 SYS2231
20 DV=PEEK(2238):IFPEEK(6)<255THENPRINT" ":END
30 OPEN2,DV,0,"PROG MENU":GET#2,A$:INPUT#15,E:CLOSE2:IFE>19THEN50
40 LOAD"PROG MENU",DV
50 OPEN2,DV,0,"NOVATERM ?.?*":INPUT#15,E:CLOSE2:IFE>19THENEND
60 LOAD"NOVATERM ?.?*",DV